This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
RE: Refreshing uidoc with action button in embedded view ~Yentl Kireplopings 22.Jan.04 03:42 PM a Web browser Domino Designer 6.0.2 CF2Windows 2000
I end up having to close and open the document
Dim ws As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set uiview = ws.CurrentView
Set dc = uiview.Documents
Set doc = dc.GetFirstDocument
If doc Is Nothing Then
Msgbox "You must select a document."
Exit Sub
End If
Dim ref As String
While Not (doc Is Nothing)
ref=doc.ParentDocumentUNID
doc.status="Complete"
Call doc.save(False,True)
Set doc=dc.GetNextDocument(doc)
Wend
Call uiview.DeselectAll
'all this stuff below is a workaround=uidoc.refresh will crash client
Dim s As New notessession
Dim db As NotesDatabase
Set db=s.CurrentDatabase
Dim thisdoc As NotesDocument
Set thisdoc=db.GetDocumentByUNID(ref)
Call thisdoc.ComputeWithForm(True,True)
Call thisdoc.Save(True,True)
Dim uidoc As notesuidocument
Set uidoc=ws.CurrentDocument
Call uidoc.close
Set uidoc=ws.editdocument(True,thisdoc)